home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / misc / gnuplot-3.7src.lha / gnuplot-3.7src / gnuplot-3.7.lha / gnuplot-3.7 / rgipgnu < prev    next >
Text File  |  1998-04-15  |  3KB  |  154 lines
  1. #!/bin/csh -f
  2. #
  3. # Print gnuplot output on RGIP (Uniplex) format.
  4.  
  5. set input_files = ()    # the plot input command files
  6. set lpr_opts = ()        # options to lpr
  7. set fontsize = ()
  8.  
  9. # File for plot commands, and for plot output
  10. set TMP=/tmp/plot$$
  11. set outfile="|mail $USER"    #mail user if no outputfile
  12. set out=0
  13. set windows = ()    #windows nr i x-dir and y-dir
  14. onintr cleanup
  15.  
  16. # default is Imagen mode for Imagen printer; see -p option
  17. set setterm="set terminal imagen"
  18.  
  19. set usage="usage: rgipgnu [-f fontsize] [-w [winx,winy]] [-t title] [-o outputfile] [-p 'plot command'] [plot-files....]"
  20.  
  21. # Loop through the command-line arguments.
  22.  
  23.  
  24. top:
  25.     if ($#argv > 0) then
  26.  
  27.         switch ("$argv[1]")
  28.  
  29.         case -   :    # print to stdout 
  30.             set outfile=""
  31.             set out=1
  32.             shift argv
  33.             goto top
  34.  
  35.         case -f?*:        # Specify font size
  36.             set fontsize = `echo $argv[1] | sed 's/^-f//'`)
  37.             shift argv
  38.             goto top
  39.  
  40.         case -f:    # Specify font size
  41.             shift argv
  42.             if ($#argv > 0) then
  43.                 set fontsize = $argv[1]
  44.                 shift argv
  45.             else
  46.                 echo "Usage: -f fontsize (1-8)"
  47.                 echo "Type    rgipgnu -help    for help."
  48.                 exit (1)
  49.             endif
  50.             goto top
  51.  
  52.         case -o?*:    # Specify output-file of plot
  53.             set outfile = `echo $argv[1] | sed 's/^-o//'`
  54.             set out=1
  55.             shift argv
  56.             goto top
  57.  
  58.         case -o:    # Specify title of plot
  59.             shift argv
  60.             if ($#argv > 0) then
  61.                  set outfile = $argv[1]
  62.                 set out=1
  63.                 shift argv
  64.             else
  65.                 echo "Usage: -o outputfile"
  66.                 echo "Include a 'X' in filename if multiple plots"
  67.                 echo "Type    lasergnu -help    for help."
  68.                 exit (1)
  69.             endif
  70.             goto top
  71.  
  72.         case -t?*:    # Specify title of plot
  73.             echo set title \""`echo $argv[1] | sed 's/^-t//'`"\" >> $TMP
  74.             shift argv
  75.             goto top
  76.  
  77.         case -t:    # Specify title of plot
  78.             shift argv
  79.             if ($#argv > 0) then
  80.                 echo set title \""$1"\" >> $TMP
  81.                 shift argv
  82.             else
  83.                 echo "Usage: -t title ..."
  84.                 echo "Type    lasergnu -help    for help."
  85.                 exit (1)
  86.             endif
  87.             goto top
  88.           case -help:
  89.             echo "$usage"
  90.             exit(1)
  91.  
  92.         case -p?*:    # plot-commds 
  93.                     echo "$argv[1]" | sed "s/^-p//"    >> $TMP
  94.             shift argv
  95.             goto top
  96.  
  97.         case -p:    # Set the printer, exactly as by itroff.
  98.             shift argv
  99.             if ($#argv > 0) then
  100.                         echo "$argv[1]"    >> $TMP
  101.                 shift argv
  102.             else
  103.                 echo "Usage: -P 'plot-commands ...'"
  104.                 echo "Type    rgipgnu -help    for help."
  105.                 exit (1)
  106.             endif
  107.             goto top
  108.  
  109.         case -w:    # Specify split page
  110.             shift argv
  111.             if ($#argv > 0) then
  112.                 set windows="[$argv[1]]"
  113.                 shift argv
  114.             else
  115.                 echo "Usage: -w no_horiz,no_vertical"
  116.                 echo "Type    lasergnu -help    for help."
  117.                 exit (1)
  118.             endif
  119.             goto top
  120.  
  121.         case -?*:
  122.             echo "I do not recognize option $argv[1]."
  123.             echo "$usage"
  124.             exit (1)
  125.  
  126.         default:
  127.                   set input_files = ($input_files $argv[1])
  128.             shift argv
  129.             goto top
  130.  
  131.         endsw
  132.     endif
  133.  
  134. set setterm="set term rgip $fontsize $windows"
  135.  
  136. # Set up input file
  137. echo "$setterm" > $TMP.plt
  138. echo set output \"$outfile\" >> $TMP.plt
  139. if (-e $TMP) cat $TMP >> $TMP.plt
  140.  
  141. # If input file is specified AND command line contains plot commands, then
  142. #    do command line args first, then plot commands in input file.
  143. #if ( "$input_files" != "" ) then
  144. if ( "$out" ) then
  145. grep -v "set te" $input_files | grep -v "set out" >> $TMP.plt
  146. else
  147. grep -v "set te" $input_files >> $TMP.plt
  148. endif
  149. echo "quit" >> $TMP.plt
  150. gnuplot $TMP.plt < /dev/null
  151.  
  152. cleanup:
  153. rm -f $TMP* 
  154.